home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 January: Mac OS SDK / Dev.CD Jan 99 SDK1.toast / Development Kits / Interfaces&Libraries / Universal / Interfaces / PInterfaces / Collections.p < prev    next >
Encoding:
Text File  |  1998-08-17  |  15.6 KB  |  481 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Collections.p
  3.  
  4.      Contains:    Collection Manager Interfaces
  5.  
  6.      Version:    Technology:    System 7.x
  7.                  Release:    Universal Interfaces 3.2
  8.  
  9.      Copyright:    © 1989-1998 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        For bug reports, consult the following page on
  12.                  the World Wide Web:
  13.  
  14.                      http://developer.apple.com/bugreporter/
  15.  
  16. }
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT Collections;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __COLLECTIONS__}
  27. {$SETC __COLLECTIONS__ := 1}
  28.  
  29. {$I+}
  30. {$SETC CollectionsIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33. {$IFC UNDEFINED __MACTYPES__}
  34. {$I MacTypes.p}
  35. {$ENDC}
  36. {$IFC UNDEFINED __MIXEDMODE__}
  37. {$I MixedMode.p}
  38. {$ENDC}
  39.  
  40.  
  41. {$PUSH}
  42. {$ALIGN MAC68K}
  43. {$LibExport+}
  44.  
  45. {***********}
  46. { Constants }
  47. {***********}
  48. { Convenience constants for functions which optionally return values }
  49.  
  50. CONST
  51.     kCollectionDontWantTag        = 0;
  52.     kCollectionDontWantId        = 0;
  53.     kCollectionDontWantSize        = 0;
  54.     kCollectionDontWantAttributes = 0;
  55.     kCollectionDontWantIndex    = 0;
  56.     kCollectionDontWantData        = 0;
  57.  
  58.  
  59. { attributes bits }
  60.     kCollectionNoAttributes        = $00000000;                    {  no attributes bits set  }
  61.     kCollectionAllAttributes    = $FFFFFFFF;                    {  all attributes bits set  }
  62.     kCollectionUserAttributes    = $0000FFFF;                    {  user attributes bits  }
  63.     kCollectionDefaultAttributes = $40000000;                    {  default attributes - unlocked, persistent  }
  64.  
  65.  
  66. { 
  67.     Attribute bits 0 through 15 (entire low word) are reserved for use by the application.
  68.     Attribute bits 16 through 31 (entire high word) are reserved for use by the Collection Manager.
  69.     Only bits 31 (kCollectionLockBit) and 30 (kCollectionPersistenceBit) currently have meaning.
  70. }
  71.     kCollectionUser0Bit            = 0;
  72.     kCollectionUser1Bit            = 1;
  73.     kCollectionUser2Bit            = 2;
  74.     kCollectionUser3Bit            = 3;
  75.     kCollectionUser4Bit            = 4;
  76.     kCollectionUser5Bit            = 5;
  77.     kCollectionUser6Bit            = 6;
  78.     kCollectionUser7Bit            = 7;
  79.     kCollectionUser8Bit            = 8;
  80.     kCollectionUser9Bit            = 9;
  81.     kCollectionUser10Bit        = 10;
  82.     kCollectionUser11Bit        = 11;
  83.     kCollectionUser12Bit        = 12;
  84.     kCollectionUser13Bit        = 13;
  85.     kCollectionUser14Bit        = 14;
  86.     kCollectionUser15Bit        = 15;
  87.     kCollectionReserved0Bit        = 16;
  88.     kCollectionReserved1Bit        = 17;
  89.     kCollectionReserved2Bit        = 18;
  90.     kCollectionReserved3Bit        = 19;
  91.     kCollectionReserved4Bit        = 20;
  92.     kCollectionReserved5Bit        = 21;
  93.     kCollectionReserved6Bit        = 22;
  94.     kCollectionReserved7Bit        = 23;
  95.     kCollectionReserved8Bit        = 24;
  96.     kCollectionReserved9Bit        = 25;
  97.     kCollectionReserved10Bit    = 26;
  98.     kCollectionReserved11Bit    = 27;
  99.     kCollectionReserved12Bit    = 28;
  100.     kCollectionReserved13Bit    = 29;
  101.     kCollectionPersistenceBit    = 30;
  102.     kCollectionLockBit            = 31;
  103.  
  104.  
  105. { attribute masks }
  106.     kCollectionUser0Mask        = $00000001;
  107.     kCollectionUser1Mask        = $00000002;
  108.     kCollectionUser2Mask        = $00000004;
  109.     kCollectionUser3Mask        = $00000008;
  110.     kCollectionUser4Mask        = $00000010;
  111.     kCollectionUser5Mask        = $00000020;
  112.     kCollectionUser6Mask        = $00000040;
  113.     kCollectionUser7Mask        = $00000080;
  114.     kCollectionUser8Mask        = $00000100;
  115.     kCollectionUser9Mask        = $00000200;
  116.     kCollectionUser10Mask        = $00000400;
  117.     kCollectionUser11Mask        = $00000800;
  118.     kCollectionUser12Mask        = $00001000;
  119.     kCollectionUser13Mask        = $00002000;
  120.     kCollectionUser14Mask        = $00004000;
  121.     kCollectionUser15Mask        = $00008000;
  122.     kCollectionReserved0Mask    = $00010000;
  123.     kCollectionReserved1Mask    = $00020000;
  124.     kCollectionReserved2Mask    = $00040000;
  125.     kCollectionReserved3Mask    = $00080000;
  126.     kCollectionReserved4Mask    = $00100000;
  127.     kCollectionReserved5Mask    = $00200000;
  128.     kCollectionReserved6Mask    = $00400000;
  129.     kCollectionReserved7Mask    = $00800000;
  130.     kCollectionReserved8Mask    = $01000000;
  131.     kCollectionReserved9Mask    = $02000000;
  132.     kCollectionReserved10Mask    = $04000000;
  133.     kCollectionReserved11Mask    = $08000000;
  134.     kCollectionReserved12Mask    = $10000000;
  135.     kCollectionReserved13Mask    = $20000000;
  136.     kCollectionPersistenceMask    = $40000000;
  137.     kCollectionLockMask            = $80000000;
  138.  
  139.  
  140. {*********}
  141. { Types   }
  142. {*********}
  143. { abstract data type for a collection }
  144.  
  145. TYPE
  146.     Collection = ^LONGINT;
  147. { collection member 4 byte tag }
  148.     CollectionTag                        = FourCharCode;
  149. {$IFC TYPED_FUNCTION_POINTERS}
  150.     CollectionFlattenProcPtr = FUNCTION(size: SInt32; data: UNIV Ptr; refCon: UNIV Ptr): OSErr;
  151. {$ELSEC}
  152.     CollectionFlattenProcPtr = ProcPtr;
  153. {$ENDC}
  154.  
  155. {$IFC TYPED_FUNCTION_POINTERS}
  156.     CollectionExceptionProcPtr = FUNCTION(c: Collection; status: OSErr): OSErr;
  157. {$ELSEC}
  158.     CollectionExceptionProcPtr = ProcPtr;
  159. {$ENDC}
  160.  
  161.     CollectionFlattenUPP = UniversalProcPtr;
  162.     CollectionExceptionUPP = UniversalProcPtr;
  163.  
  164. CONST
  165.     uppCollectionFlattenProcInfo = $00000FE0;
  166.     uppCollectionExceptionProcInfo = $000002E0;
  167.  
  168. FUNCTION NewCollectionFlattenProc(userRoutine: CollectionFlattenProcPtr): CollectionFlattenUPP;
  169.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  170.     INLINE $2E9F;
  171.     {$ENDC}
  172.  
  173. FUNCTION NewCollectionExceptionProc(userRoutine: CollectionExceptionProcPtr): CollectionExceptionUPP;
  174.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  175.     INLINE $2E9F;
  176.     {$ENDC}
  177.  
  178. FUNCTION CallCollectionFlattenProc(size: SInt32; data: UNIV Ptr; refCon: UNIV Ptr; userRoutine: CollectionFlattenUPP): OSErr;
  179.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  180.     INLINE $205F, $4E90;
  181.     {$ENDC}
  182.  
  183. FUNCTION CallCollectionExceptionProc(c: Collection; status: OSErr; userRoutine: CollectionExceptionUPP): OSErr;
  184.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  185.     INLINE $205F, $4E90;
  186.     {$ENDC}
  187. {*******************************************}
  188. {************ Public interfaces ************}
  189. {*******************************************}
  190. FUNCTION NewCollection: Collection;
  191.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  192.     INLINE $7000, $ABF6;
  193.     {$ENDC}
  194.  
  195. PROCEDURE DisposeCollection(c: Collection);
  196.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  197.     INLINE $7001, $ABF6;
  198.     {$ENDC}
  199.  
  200. FUNCTION CloneCollection(c: Collection): Collection;
  201.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  202.     INLINE $7002, $ABF6;
  203.     {$ENDC}
  204.  
  205. FUNCTION CountCollectionOwners(c: Collection): SInt32;
  206.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  207.     INLINE $7003, $ABF6;
  208.     {$ENDC}
  209.  
  210. FUNCTION CopyCollection(srcCollection: Collection; dstCollection: Collection): Collection;
  211.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  212.     INLINE $7004, $ABF6;
  213.     {$ENDC}
  214.  
  215. FUNCTION GetCollectionDefaultAttributes(c: Collection): SInt32;
  216.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  217.     INLINE $7005, $ABF6;
  218.     {$ENDC}
  219.  
  220. PROCEDURE SetCollectionDefaultAttributes(c: Collection; whichAttributes: SInt32; newAttributes: SInt32);
  221.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  222.     INLINE $7006, $ABF6;
  223.     {$ENDC}
  224.  
  225. FUNCTION CountCollectionItems(c: Collection): SInt32;
  226.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  227.     INLINE $7007, $ABF6;
  228.     {$ENDC}
  229.  
  230. FUNCTION AddCollectionItem(c: Collection; tag: CollectionTag; id: SInt32; itemSize: SInt32; itemData: UNIV Ptr): OSErr;
  231.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  232.     INLINE $7008, $ABF6;
  233.     {$ENDC}
  234.  
  235. FUNCTION GetCollectionItem(c: Collection; tag: CollectionTag; id: SInt32; VAR itemSize: SInt32; itemData: UNIV Ptr): OSErr;
  236.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  237.     INLINE $7009, $ABF6;
  238.     {$ENDC}
  239.  
  240. FUNCTION RemoveCollectionItem(c: Collection; tag: CollectionTag; id: SInt32): OSErr;
  241.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  242.     INLINE $700A, $ABF6;
  243.     {$ENDC}
  244.  
  245. FUNCTION SetCollectionItemInfo(c: Collection; tag: CollectionTag; id: SInt32; whichAttributes: SInt32; newAttributes: SInt32): OSErr;
  246.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  247.     INLINE $700B, $ABF6;
  248.     {$ENDC}
  249.  
  250. FUNCTION GetCollectionItemInfo(c: Collection; tag: CollectionTag; id: SInt32; VAR index: SInt32; VAR itemSize: SInt32; VAR attributes: SInt32): OSErr;
  251.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  252.     INLINE $700C, $ABF6;
  253.     {$ENDC}
  254.  
  255. FUNCTION ReplaceIndexedCollectionItem(c: Collection; index: SInt32; itemSize: SInt32; itemData: UNIV Ptr): OSErr;
  256.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  257.     INLINE $700D, $ABF6;
  258.     {$ENDC}
  259.  
  260. FUNCTION GetIndexedCollectionItem(c: Collection; index: SInt32; VAR itemSize: SInt32; itemData: UNIV Ptr): OSErr;
  261.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  262.     INLINE $700E, $ABF6;
  263.     {$ENDC}
  264.  
  265. FUNCTION RemoveIndexedCollectionItem(c: Collection; index: SInt32): OSErr;
  266.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  267.     INLINE $700F, $ABF6;
  268.     {$ENDC}
  269.  
  270. FUNCTION SetIndexedCollectionItemInfo(c: Collection; index: SInt32; whichAttributes: SInt32; newAttributes: SInt32): OSErr;
  271.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  272.     INLINE $7010, $ABF6;
  273.     {$ENDC}
  274.  
  275. FUNCTION GetIndexedCollectionItemInfo(c: Collection; index: SInt32; VAR tag: CollectionTag; VAR id: SInt32; VAR itemSize: SInt32; VAR attributes: SInt32): OSErr;
  276.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  277.     INLINE $7011, $ABF6;
  278.     {$ENDC}
  279.  
  280. FUNCTION CollectionTagExists(c: Collection; tag: CollectionTag): BOOLEAN;
  281.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  282.     INLINE $7012, $ABF6;
  283.     {$ENDC}
  284.  
  285. FUNCTION CountCollectionTags(c: Collection): SInt32;
  286.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  287.     INLINE $7013, $ABF6;
  288.     {$ENDC}
  289.  
  290. FUNCTION GetIndexedCollectionTag(c: Collection; tagIndex: SInt32; VAR tag: CollectionTag): OSErr;
  291.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  292.     INLINE $7014, $ABF6;
  293.     {$ENDC}
  294.  
  295. FUNCTION CountTaggedCollectionItems(c: Collection; tag: CollectionTag): SInt32;
  296.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  297.     INLINE $7015, $ABF6;
  298.     {$ENDC}
  299.  
  300. FUNCTION GetTaggedCollectionItem(c: Collection; tag: CollectionTag; whichItem: SInt32; VAR itemSize: SInt32; itemData: UNIV Ptr): OSErr;
  301.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  302.     INLINE $7016, $ABF6;
  303.     {$ENDC}
  304.  
  305. FUNCTION GetTaggedCollectionItemInfo(c: Collection; tag: CollectionTag; whichItem: SInt32; VAR id: SInt32; VAR index: SInt32; VAR itemSize: SInt32; VAR attributes: SInt32): OSErr;
  306.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  307.     INLINE $7017, $ABF6;
  308.     {$ENDC}
  309.  
  310. PROCEDURE PurgeCollection(c: Collection; whichAttributes: SInt32; matchingAttributes: SInt32);
  311.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  312.     INLINE $7018, $ABF6;
  313.     {$ENDC}
  314.  
  315. PROCEDURE PurgeCollectionTag(c: Collection; tag: CollectionTag);
  316.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  317.     INLINE $7019, $ABF6;
  318.     {$ENDC}
  319.  
  320. PROCEDURE EmptyCollection(c: Collection);
  321.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  322.     INLINE $701A, $ABF6;
  323.     {$ENDC}
  324. FUNCTION FlattenCollection(c: Collection; flattenProc: CollectionFlattenUPP; refCon: UNIV Ptr): OSErr;
  325.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  326.     INLINE $701B, $ABF6;
  327.     {$ENDC}
  328.  
  329. FUNCTION FlattenPartialCollection(c: Collection; flattenProc: CollectionFlattenUPP; refCon: UNIV Ptr; whichAttributes: SInt32; matchingAttributes: SInt32): OSErr;
  330.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  331.     INLINE $701C, $ABF6;
  332.     {$ENDC}
  333.  
  334. FUNCTION UnflattenCollection(c: Collection; flattenProc: CollectionFlattenUPP; refCon: UNIV Ptr): OSErr;
  335.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  336.     INLINE $701D, $ABF6;
  337.     {$ENDC}
  338.  
  339. FUNCTION GetCollectionExceptionProc(c: Collection): CollectionExceptionUPP;
  340.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  341.     INLINE $701E, $ABF6;
  342.     {$ENDC}
  343.  
  344. PROCEDURE SetCollectionExceptionProc(c: Collection; exceptionProc: CollectionExceptionUPP);
  345.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  346.     INLINE $701F, $ABF6;
  347.     {$ENDC}
  348.  
  349. FUNCTION GetNewCollection(collectionID: SInt16): Collection;
  350.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  351.     INLINE $7020, $ABF6;
  352.     {$ENDC}
  353.  
  354. {********************************************************************}
  355. {************* Utility routines for handle-based access *************}
  356. {********************************************************************}
  357. FUNCTION AddCollectionItemHdl(aCollection: Collection; tag: CollectionTag; id: SInt32; itemData: Handle): OSErr;
  358.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  359.     INLINE $7021, $ABF6;
  360.     {$ENDC}
  361.  
  362. FUNCTION GetCollectionItemHdl(aCollection: Collection; tag: CollectionTag; id: SInt32; itemData: Handle): OSErr;
  363.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  364.     INLINE $7022, $ABF6;
  365.     {$ENDC}
  366.  
  367. FUNCTION ReplaceIndexedCollectionItemHdl(aCollection: Collection; index: SInt32; itemData: Handle): OSErr;
  368.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  369.     INLINE $7023, $ABF6;
  370.     {$ENDC}
  371.  
  372. FUNCTION GetIndexedCollectionItemHdl(aCollection: Collection; index: SInt32; itemData: Handle): OSErr;
  373.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  374.     INLINE $7024, $ABF6;
  375.     {$ENDC}
  376.  
  377. FUNCTION FlattenCollectionToHdl(aCollection: Collection; flattened: Handle): OSErr;
  378.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  379.     INLINE $7025, $ABF6;
  380.     {$ENDC}
  381.  
  382. FUNCTION UnflattenCollectionFromHdl(aCollection: Collection; flattened: Handle): OSErr;
  383.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  384.     INLINE $7026, $ABF6;
  385.     {$ENDC}
  386.  
  387. {$IFC OLDROUTINENAMES }
  388.  
  389. CONST
  390.     dontWantTag                    = 0;
  391.     dontWantId                    = 0;
  392.     dontWantSize                = 0;
  393.     dontWantAttributes            = 0;
  394.     dontWantIndex                = 0;
  395.     dontWantData                = 0;
  396.  
  397.     noCollectionAttributes        = $00000000;
  398.     allCollectionAttributes        = $FFFFFFFF;
  399.     userCollectionAttributes    = $0000FFFF;
  400.     defaultCollectionAttributes    = $40000000;
  401.  
  402.     collectionUser0Bit            = 0;
  403.     collectionUser1Bit            = 1;
  404.     collectionUser2Bit            = 2;
  405.     collectionUser3Bit            = 3;
  406.     collectionUser4Bit            = 4;
  407.     collectionUser5Bit            = 5;
  408.     collectionUser6Bit            = 6;
  409.     collectionUser7Bit            = 7;
  410.     collectionUser8Bit            = 8;
  411.     collectionUser9Bit            = 9;
  412.     collectionUser10Bit            = 10;
  413.     collectionUser11Bit            = 11;
  414.     collectionUser12Bit            = 12;
  415.     collectionUser13Bit            = 13;
  416.     collectionUser14Bit            = 14;
  417.     collectionUser15Bit            = 15;
  418.     collectionReserved0Bit        = 16;
  419.     collectionReserved1Bit        = 17;
  420.     collectionReserved2Bit        = 18;
  421.     collectionReserved3Bit        = 19;
  422.     collectionReserved4Bit        = 20;
  423.     collectionReserved5Bit        = 21;
  424.     collectionReserved6Bit        = 22;
  425.     collectionReserved7Bit        = 23;
  426.     collectionReserved8Bit        = 24;
  427.     collectionReserved9Bit        = 25;
  428.     collectionReserved10Bit        = 26;
  429.     collectionReserved11Bit        = 27;
  430.     collectionReserved12Bit        = 28;
  431.     collectionReserved13Bit        = 29;
  432.     collectionPersistenceBit    = 30;
  433.     collectionLockBit            = 31;
  434.  
  435.     collectionUser0Mask            = $00000001;
  436.     collectionUser1Mask            = $00000002;
  437.     collectionUser2Mask            = $00000004;
  438.     collectionUser3Mask            = $00000008;
  439.     collectionUser4Mask            = $00000010;
  440.     collectionUser5Mask            = $00000020;
  441.     collectionUser6Mask            = $00000040;
  442.     collectionUser7Mask            = $00000080;
  443.     collectionUser8Mask            = $00000100;
  444.     collectionUser9Mask            = $00000200;
  445.     collectionUser10Mask        = $00000400;
  446.     collectionUser11Mask        = $00000800;
  447.     collectionUser12Mask        = $00001000;
  448.     collectionUser13Mask        = $00002000;
  449.     collectionUser14Mask        = $00004000;
  450.     collectionUser15Mask        = $00008000;
  451.     collectionReserved0Mask        = $00010000;
  452.     collectionReserved1Mask        = $00020000;
  453.     collectionReserved2Mask        = $00040000;
  454.     collectionReserved3Mask        = $00080000;
  455.     collectionReserved4Mask        = $00100000;
  456.     collectionReserved5Mask        = $00200000;
  457.     collectionReserved6Mask        = $00400000;
  458.     collectionReserved7Mask        = $00800000;
  459.     collectionReserved8Mask        = $01000000;
  460.     collectionReserved9Mask        = $02000000;
  461.     collectionReserved10Mask    = $04000000;
  462.     collectionReserved11Mask    = $08000000;
  463.     collectionReserved12Mask    = $10000000;
  464.     collectionReserved13Mask    = $20000000;
  465.     collectionPersistenceMask    = $40000000;
  466.     collectionLockMask            = $80000000;
  467.  
  468. {$ENDC}  {OLDROUTINENAMES}
  469.  
  470.  
  471. {$ALIGN RESET}
  472. {$POP}
  473.  
  474. {$SETC UsingIncludes := CollectionsIncludes}
  475.  
  476. {$ENDC} {__COLLECTIONS__}
  477.  
  478. {$IFC NOT UsingIncludes}
  479.  END.
  480. {$ENDC}
  481.